home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Resources / g⁄matter / g⁄matter catalog / GMDUI.Dxr / 00311_movie script.ls < prev    next >
Encoding:
Text File  |  1996-07-31  |  689 b   |  29 lines
  1. on initPrintOMatic
  2.   global printer, gPropFont, gMonoFont, gXObjFile
  3.   if the machineType = 256 then
  4.     set gPropFont to "arial"
  5.     set gMonoFont to "courier new"
  6.     set gXObjFile to "pmatic.dll"
  7.   else
  8.     set gPropFont to "helvetica"
  9.     set gMonoFont to "courier"
  10.     set gXObjFile to "pmatic.xobj"
  11.   end if
  12.   if not objectp(printer) then
  13.     openXLib(gXObjFile)
  14.     set printer to PrintOMatic(mnew)
  15.   end if
  16.   if not objectp(printer) then
  17.     alert("There is no currently selected printer. Printing features are disabled.")
  18.   else
  19.   end if
  20. end
  21.  
  22. on terminatePrintOMatic
  23.   global printer, gXObjFile
  24.   if objectp(printer) then
  25.     printer(mdispose)
  26.   end if
  27.   closeXLib(gXObjFile)
  28. end
  29.